object frmMain: TfrmMain
  Left = 446
  Top = 310
  BorderStyle = bsSingle
  Caption = 'File Sharer 1.7'
  ClientHeight = 287
  ClientWidth = 550
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lblNowSharing: TLabel
    Left = 8
    Top = 262
    Width = 75
    Height = 13
    Caption = 'Now sharing!'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object btnStart: TButton
    Left = 389
    Top = 256
    Width = 75
    Height = 25
    Caption = 'Share!'
    TabOrder = 0
    OnClick = actShareExecute
  end
  object btnQuit: TButton
    Left = 469
    Top = 256
    Width = 75
    Height = 25
    Caption = 'Quit'
    TabOrder = 1
    OnClick = btnQuitClick
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 537
    Height = 241
    ActivePage = TabSheet1
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = 'Setup'
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 513
        Height = 97
        Caption = 'External IP'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label1: TLabel
          Left = 16
          Top = 30
          Width = 54
          Height = 13
          Caption = 'IP Address:'
        end
        object Label3: TLabel
          Left = 48
          Top = 62
          Width = 22
          Height = 13
          Caption = 'Port:'
        end
        object edtExternalIP: TEdit
          Left = 80
          Top = 26
          Width = 105
          Height = 21
          Enabled = False
          TabOrder = 0
          OnChange = edtExternalIPChange
        end
        object edtPort: TEdit
          Left = 80
          Top = 58
          Width = 57
          Height = 21
          MaxLength = 5
          TabOrder = 1
          Text = '85'
          OnChange = edtPortChange
          OnKeyPress = edtPortKeyPress
        end
        object Panel1: TPanel
          Left = 249
          Top = 21
          Width = 251
          Height = 60
          BevelOuter = bvLowered
          Color = clCream
          TabOrder = 2
          object lblMessage: TLabel
            Left = 4
            Top = 6
            Width = 243
            Height = 13
            Alignment = taCenter
            AutoSize = False
            Caption = 'Message'
            Color = clCream
            ParentColor = False
          end
          object lblHttp: TLabel
            Left = 4
            Top = 23
            Width = 243
            Height = 13
            Alignment = taCenter
            AutoSize = False
            Caption = 'Http'
            Color = clCream
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentColor = False
            ParentFont = False
          end
          object lblBottom: TLabel
            Left = 4
            Top = 40
            Width = 243
            Height = 13
            Alignment = taCenter
            AutoSize = False
            Caption = 'Bottom'
            Color = clCream
            ParentColor = False
          end
        end
        object BitBtn2: TBitBtn
          Left = 189
          Top = 24
          Width = 57
          Height = 25
          Caption = 'Copy'
          TabOrder = 3
          OnClick = BitBtn2Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
            FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
            FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
            007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
            7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
            99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
            99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
            99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
            93337FFFF7737777733300000033333333337777773333333333}
          NumGlyphs = 2
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 112
        Width = 513
        Height = 97
        Caption = 'Shared Directory/Folder'
        TabOrder = 1
        object Label2: TLabel
          Left = 36
          Top = 29
          Width = 32
          Height = 13
          Caption = 'Folder:'
        end
        object edtDirectory: TEdit
          Left = 80
          Top = 25
          Width = 337
          Height = 21
          TabOrder = 0
          OnChange = edtDirectoryChange
        end
        object BitBtn1: TBitBtn
          Left = 424
          Top = 23
          Width = 75
          Height = 25
          Caption = 'Browse'
          TabOrder = 1
          OnClick = BitBtn1Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
            B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
            B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
            0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
            55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
            55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
            55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
            5555575FFF755555555557000075555555555577775555555555}
          NumGlyphs = 2
        end
        object pnlDirectory: TPanel
          Left = 9
          Top = 56
          Width = 496
          Height = 33
          BevelOuter = bvLowered
          Caption = 'Please, select the folder you want to share.'
          Color = clCream
          TabOrder = 2
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Connections'
      ImageIndex = 2
      object ListView1: TListView
        Left = 0
        Top = 0
        Width = 529
        Height = 213
        Align = alClient
        Columns = <
          item
            Caption = 'Ip'
            Width = 100
          end
          item
            Caption = 'Operation'
            Width = 150
          end
          item
            Caption = 'File'
            Width = 250
          end>
        GridLines = True
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'About'
      ImageIndex = 1
      object memAbout: TMemo
        Left = 0
        Top = 0
        Width = 529
        Height = 213
        Align = alClient
        Color = clCream
        Lines.Strings = (
          'File Sharer 1.7 - Copyright 2007/2008 - Leonardo M. Ram'#233
          ''
          'What is File Sharer?'
          
            'File Sharer allows to download and upload files from computers c' +
            'onnected to Interntet by simply typing the '
          'host IP address in a web browser.'
          ''
          'Why you created this utility?'
          
            'Because I wanted to send a big file to a friend and his email pr' +
            'ovider didn'#39't accepted files larger than 1mb.'
          ''
          'What'#39's the programming language behind File Sharer?'
          
            'File Sharer was written using Delphi for Win32, but I'#39'm planning' +
            ' to use Lazarus and FreePascal to write the '
          'multiplattform version.'
          ''
          'Can I contact you?'
          
            'Yes, of course. My email is martinrame@yahoo.com, I also have a ' +
            'blog on '
          'http://leonardorame.blogspot.com'
          ''
          'Changelog'
          '-----------------'
          '1.7 - Added search for files. Added /AutoStart parameter.'
          '1.5 - Added simple authentication plugin.'
          
            '1.4 - Added connections tab. Now you know who'#39's connected upload' +
            'ing or downloading.'
          '1.3 - Added upload support.'
          '1.2 - Added support for downloading big files.'
          
            '1.1 - Improved file listing UI. Now it'#39's similar to Windows Expl' +
            'orer (R).'
          
            '1.0 - Basic functionality created. The user just can browse a re' +
            'mote directory and download files.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
end
